x = [0 0.5];
h = 0.5;
y0 = [ 4 6 ];
y_absen = @(x,y,z)(-0.5*y); 
z_absen = @(x,y,z)(4-0.3*z-0.1*y);
orde = [ 3 4 ];

[n1 result1] = Runge_Kutta(x,h,y0,y_absen,orde(1));
[n2 result2] = Runge_Kutta(x,h,y0,z_absen,orde(1));
result = [result1(1) result2(2)];

clear n1 n2;
clear result1 result2;
